home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 May / 1986-05.d64 / arcade baseball (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  9KB  |  170 lines
  1. 10 poke56,48:poke55,0:clr:gosub780
  2. 20 print""spc(14)chr$(14)"[151][208]lease [215]ait[145][145][145][145][145][145][145][145]"
  3. 30 fora=49152to49999:readb:pokea,b:c=c+b:next
  4. 40 ifc<>104062thenprint"[147]data error":stop
  5. 50 data 173,4,220,141,166,3,169,18,141,5,212,169,100,141,1,212,169,0,133
  6. 60 data 187,133,188,133,189,173,30,208,32,199,192,169,0,141,167,3,32,85,193
  7. 70 data 32,15,194,32,254,194,32,182,194,32,15,194,173,120,3,201,250,208,8
  8. 80 data 169,0,141,162,3,76,152,192,174,167,3,208,114,201,76,176,220,201,69
  9. 90 data 144,216,169,27,141,163,3,169,37,141,164,3,162,7,173,100,3,205,163
  10. 100 data 3,144,8,205,164,3,176,3,76,38,192,173,163,3,24,105,24,141,163
  11. 110 data 3,173,164,3,24,105,24,141,164,3,202,16,219,169,2,141,21,208,173
  12. 120 data 100,3,56,233,9,162,255,232,56,233,24,176,250,189,175,192,141,162,3
  13. 130 data 120,169,240,141,26,208,169,49,141,20,3,169,234,141,21,3,169,129,141
  14. 140 data 13,220,88,96,1,5,2,5,3,5,2,5,1,201,30,240,3,76,38
  15. 150 data 192,169,4,141,162,3,76,152,192,169,2,141,21,208,169,1,141,28,208
  16. 160 data 160,7,169,0,153,110,3,136,16,248,169,90,141,101,3,169,230,141,121
  17. 170 data 3,169,227,141,131,3,169,0,141,40,208,169,12,141,37,208,169,11,141
  18. 180 data 38,208,169,127,141,13,220,169,214,141,20,3,169,193,141,21,3,169,27
  19. 190 data 141,17,208,169,129,141,26,208,169,250,141,18,208,169,117,141,100,3,169
  20. 200 data 130,141,120,3,169,129,141,26,208,96,165,187,208,26,169,127,141,0,220
  21. 210 data 169,0,141,1,220,173,1,220,201,239,240,1,96,165,189,208,14,230,187
  22. 220 data 230,189,238,101,3,173,101,3,201,145,240,1,96,169,0,133,187,96,173
  23. 230 data 165,3,240,24,169,0,133,162,32,189,193,41,63,9,64,197,162,208,252
  24. 240 data 32,189,193,41,3,170,76,147,193,169,255,141,0,220,169,0,141,1,220
  25. 250 data 169,254,141,0,220,173,1,220,201,248,176,234,73,255,74,74,74,162,255
  26. 260 data 232,74,144,252,134,2,189,206,193,133,5,189,210,193,133,6,189,202,193
  27. 270 data 133,253,169,0,133,254,169,20,133,248,169,224,141,130,3,169,0,133,251
  28. 280 data 133,252,169,3,141,21,208,96,173,166,3,10,10,56,109,166,3,141,166
  29. 290 data 3,96,200,250,180,200,5,0,0,248,0,0,0,255,169,1,141,25,208
  30. 300 data 169,0,133,3,160,7,162,14,185,100,3,157,0,208,185,120,3,157,1
  31. 310 data 208,185,110,3,10,102,3,185,130,3,153,248,7,202,202,136,16,227,165
  32. 320 data 3,141,16,208,169,250,141,18,208,230,162,76,188,254,198,247,240,1,96
  33. 330 data 169,90,133,247,32,39,193,165,253,24,109,140,3,141,140,3,173,120,3
  34. 340 data 101,254,141,120,3,174,167,3,208,26,201,66,208,22,169,0,133,254,169
  35. 350 data 50,133,253,165,252,48,6,169,60,133,251,208,4,169,190,133,251,173,150
  36. 360 data 3,24,101,251,141,150,3,173,100,3,101,252,141,100,3,201,16,240,4
  37. 370 data 201,217,208,17,165,251,73,255,24,105,1,133,251,165,252,73,255,105,0
  38. 380 data 133,252,198,248,208,60,169,20,133,248,165,251,24,101,5,133,251,165,252
  39. 390 data 101,6,133,252,165,254,16,21,173,130,3,201,224,240,6,206,130,3,76
  40. 400 data 181,194,169,226,141,130,3,76,181,194,173,130,3,201,226,240,6,238,130
  41. 410 data 3,76,181,194,169,224,141,130,3,96,165,188,208,67,173,30,208,41,3
  42. 420 data 201,3,208,58,169,0,133,5,133,6,230,188,173,100,3,56,237,101,3
  43. 430 data 24,105,15,16,2,169,0,201,28,144,2,169,27,10,170,189,22,195,133
  44. 440 data 251,189,23,195,133,252,169,128,141,4,212,169,129,141,4,212,169,255,133
  45. 450 data 254,169,120,133,253,96,173,120,3,201,120,208,16,173,100,3,201,113,144
  46. 460 data 9,201,121,176,5,169,1,141,167,3,96,64,255,87,255,100,255,113,255
  47. 470 data 126,255,139,255,152,255,165,255,188,255,201,255,214,255,227,255,240
  48. 480 data 255,0,0,0,0,16,0,29,0,42,0,55,0,68,0,91,0,104,0,117,0
  49. 490 data 130,0,143,0,156,0,169,0,192,0,192,0
  50. 500 ml$="[162]"+chr$(8)+"[189]<"+chr$(3)+"[149]x[202]"+chr$(16)+chr$(248)+"l[191][163]":poke835,0
  51. 510 poke836,208:poke830,0:poke831,216:poke828,0:poke829,56:poke56334,0
  52. 520 poke1,51:ml$=ml$:sys(peek(51)+256*peek(52)):poke1,55:poke56334,1
  53. 530 fori=12568to12671:readj:pokei,255-j:next
  54. 540 fori=12672to12727:readj:pokei,j:next
  55. 550 data 0,115,219,219,219,219,113,0,0,111,102,102,102,102,198,0
  56. 560 data 149,149,149,149,165,170,170,170,86,86,86,86,90,170,170,170
  57. 570 data 170,170,170,165,149,149,149,149,170,170,170,90,86,86,86,86
  58. 580 data 130,130,130,130,130,170,170,170,128,0,0,0,0,0,0,0
  59. 590 data 255,255,255,126,060,024,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
  60. 600 data 0,0,0,0,0,0,0,128,255,255,255,126,60,24,0,0,213,213,245,245,253,253
  61. 610 data 255,255,87,87,95,95,127,127,255,255,125,125,125,125,125,125,125,125
  62. 620 data 126,255,255,255,255,255,255,255,255,255,255,255,255,255,255,126
  63. 630 data 127,255,255,255,255,255,255,127,254,255,255,255,255,255,255,254
  64. 640 q=14336
  65. 650 readb:ifb<0thenfora=1toabs(b):pokeq,0:q=q+1:next:goto650
  66. 660 ifb=256thenff=1:goto730
  67. 670 pokeq,b:q=q+1:goto650
  68. 680 data -25,60,0,0,255,0,0,85,0,0,85,0,0,20,-51,20,0,0,255,0,0,255,0,0,85,0,0
  69. 690 data 20,-51,20,0,0,85,0,0,85,0,0,255,0,0,60,-66,255,0,7,255,224,31,255,248
  70. 700 data 63,255,252,127,255,254,127,255,254,255,255,255,255,255,255,239,256
  71. 710 data 129,0,0,0,0,0,0,0,0,0,0,0,0,0,0,129
  72. 720 data 128,0,0,0,0,0,0,128,1,0,0,0,0,0,0,1
  73. 730 poke53272,23:poke53270,200
  74. 740 cl(1)=10:cl(2)=14:fl=0:rm=20:pl=2
  75. 750 fora=54272to54295:pokea,0:next:pokea,15:poke54280,17:poke54284,18
  76. 760 in=1:sk=0:ck=0:p1$="home":p2$="visitor":gosub770:goto860
  77. 770 ifff=1thenreturn
  78. 780 print"[147]"spc(6);:poke53281,0:poke53280,0
  79. 790 print"[190][188][146]  [161][172][187][146][187] [172][172][187][146][187]  [190][188][146]  [161][172][188][146]  [161][172][162][146][190]"spc(11)"[161][188][190][146][161] [161][188][190][146][190] [161]";
  80. 800 print"[146][161]   [161][188][190][146][161] [161][146][161][161][146][161] [161][188][146][187]"spc(12)"[161][146][161][161][146][161] [161][172][188][146]  [161][146][161][172][187] [161][146][161][161][146][161]";
  81. 810 print" [161][146][161][190][146][190] [161][146][161]"spc(13)"[188][190][188][190] [188][190][188][190]  [162][162][146]  [188][190][188][190] [188][162][146][190]  [188][162][162][146][190]"spc(9);
  82. 820 print" [161][172][187][146][187] [190][188][146] [172][172][187][146][187][161][172][162][146][190][161][172][187][146][187] [190][188][146] [161][146][161]  [161][146][161]"spc(10)"[161][188][190][146][190][161]";
  83. 830 print"[188][190][146][161][188][188][146][162] [161][188][146][187] [161][188][190][146][190][161][188][190][146][161][161][146][161]  [161][146][161]"spc(10)"[161][146][161][161][146][161][161][146][161][161][146][161][172][187]";
  84. 840 print"[161][146][161][161][146][161]  [161][146][161][161][146][161][161][146][161][161][146][161][161][146][161]  [161][146][161]"spc(10)"[188][162][162][146] [188][190][188][190] [162][162][146] [188][162][162]";
  85. 850 print"[146][190][188][162][162][146] [188][190][188][190][188][162][162][146][190][188][162][162][146][190]":return
  86. 860 printchr$(14)""spc(12)"[151][208]ractice    [198]1":printspc(12)"[208]lay        [198]7"
  87. 870 poke198,0:wait198,1:getmt$:ifmt$<>"[133]"andmt$<>"[136]"then870
  88. 880 ifmt$="[133]"thenfl=1:in$="1":goto920
  89. 890 c$="              ":printchr$(142)"[145][145][145][145]"spc(12)c$:print""spc(12)c$"[145][145][145][145]"
  90. 900 printspc(13)"1[146] or 2[146] players"
  91. 910 poke198,0:wait198,1:getin$:ifin$=""orin$<"1"orin$>"2"then910
  92. 920 np=val(in$):poke933,-(np=1):print"[147]";:poke53280,2:poke53281,1:te=6:b$=""
  93. 930 poke53272,28:poke53282,3:poke53283,0:poke53270,peek(53270)or16
  94. 940 w=1063:pokew,160:a$=" [146]"
  95. 950 pokew+54272,6:c$="[159]                           ":d$="            "
  96. 960 foru=1to2:fori=1to12:printc$;:poke646,te:printd$:sm=w+40*i:pokesm,160
  97. 970 pokesm+54272,te:nexti:te=5:w=1543:nextu:printc$""d$""
  98. 980 print""spc(27)"            ":poke1543,160:poke55815,2
  99. 990 print"1b [146]#$ 2b [146]#$ 3b [146]#$ 2b [146]#$ 1b"
  100. 1000 print"[150]'('('('('('('('('(":print"%&%&%&%&%&%&%&%&%&"
  101. 1010 print""spc(12)"  [157][157]  [157][157]  ":print"[153][150]0"spc(24)"1":y=24
  102. 1020 x=1:fori=1to6:forz=1tox:b$=b$+a$:nextz:printb$"0";:printtab(y)"1"b$:b$=""
  103. 1030 y=y-1:x=x+1:nexti:print"       [146]0"spc(10)"1       ";
  104. 1040 iffl=1thenprint""spc(29)"practice":goto1100
  105. 1050 printspc(32)"[146]- .":printspc(31)"-[206][146]3[205][146].":printspc(30)"-[206][146]* [146]